home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / MDSKIP.DFM < prev    next >
Text File  |  1994-10-12  |  1KB  |  60 lines
  1.  
  2.  
  3. DEFINE FORM MDSkip ;
  4.    PROPERTY ;
  5.       HEIGHT   8,;
  6.       LEFT    20,;
  7.       TEXT   "Saltar registros",;
  8.       TOP      7,;
  9.       WIDTH   34
  10.  
  11. MDSkip.Action = .F.
  12.  
  13.  
  14.  
  15. DEFINE TEXT txName1 OF m->MDSkip;
  16.    PROPERTY ;
  17.       LEFT   7,;
  18.       TEXT  [~R~egistros a saltar],;
  19.       TOP    1
  20.  
  21.  
  22. MDSKIP.TXNAME1.WIDTH = 18
  23.  
  24. DEFINE SPINBOX sbName2 OF m->MDSkip;
  25.    PROPERTY ;
  26.       LEFT   7,;
  27.       TOP    2,;
  28.       WIDTH 18,;
  29.       STATUSMESSAGE   "Número de registros a saltar. Un número negativo permite saltar hacia atrás."
  30.  
  31. MDSkip.sbName2.Value    = 1
  32. MDSkip.sbName2.Picture  = "9999999999"
  33.  
  34.  
  35. DEFINE PUSHBUTTON bOK3 OF m->MDSkip;
  36.    PROPERTY ;
  37.       DEFAULT .T.,;
  38.       LEFT      3,;
  39.       ONCLICK  OKHand,;
  40.       TEXT    [~A~ceptar],;
  41.       TOP       4,;
  42.       WIDTH    11,;
  43.       STATUSMESSAGE   "Aceptar las configuraciones de este cuadro de diálogo"
  44.  
  45. MDSkip.bOK3.Procfile = "OKHAND.PRG," + HOME() + "FORMRUN.DBO"
  46.  
  47.  
  48. DEFINE PUSHBUTTON bCan4 OF m->MDSkip;
  49.    PROPERTY ;
  50.       LEFT     17,;
  51.       ONCLICK  CanHand,;
  52.       TEXT    [Cancelar],;
  53.       TOP       4,;
  54.       WIDTH    12,;
  55.       STATUSMESSAGE   "Cerrar el cuadro de diálogo sin realizar modificaciones"
  56.  
  57. MDSkip.bCan4.Procfile = "CANHAND.PRG," + HOME() + "FORMRUN.DBO"
  58.  
  59.  
  60.